home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / e / amigae30a_fr.lha / AmigaE30f / Sources / Pd / compleximage.e < prev    next >
Encoding:
Text File  |  1994-12-02  |  2.5 KB  |  85 lines
  1. /*   compleximage.e  traduit des exemples de bibliothèques RKRM
  2.      Traduit par Eric Stringer    INTERNET #"NES@delphi.com"
  3.      Ce programme met une image en 2 plans de bit d'une boite dans une fenêtre.
  4. */
  5.  
  6.  
  7. MODULE 'exec/types','intuition/intuition','intuition/intuitionbase'
  8.  
  9. CONST MYIMAGE_LEFT = 0
  10. CONST MYIMAGE_TOP  = 0
  11. CONST MYIMAGE_WIDTH = 24
  12. CONST MYIMAGE_HEIGHT = 10
  13. CONST MYIMAGE_DEPTH  = 1
  14. CONST BUFSIZE=GADGETSIZE*3, IFLAGS=IDCMP_CLOSEWINDOW+IDCMP_GADGETUP
  15. DEF buf[BUFSIZE]:ARRAY, w
  16.  
  17.  
  18.  
  19. PROC main()
  20.  
  21. DEF win:PTR TO window, myimage:PTR TO image, myimagedata:PTR TO LONG,t:PTR TO INT
  22.  
  23.  
  24.       CopyMem([$FFFF,$FF00,    /* Données Image plan 1 */
  25.                $C000,$0300,
  26.                $C000,$0300,
  27.                $C000,$0300,
  28.                $C000,$0300,
  29.                $C000,$0300,
  30.                $C000,$0300,
  31.                $C000,$0300,
  32.                $C000,$0300,
  33.                $FFFF,$FF00,
  34.  
  35.                $0000,$0000,    /* Données Image plan 2 */
  36.                $0000,$0000,
  37.                $0000,$0000,
  38.                $00FF,$0000,
  39.                $00FF,$0000,
  40.                $00FF,$0000,
  41.                $00FF,$0000,
  42.                $0000,$0000,
  43.                $0000,$0000,
  44.                $0000,$0000]:INT,myimagedata:=NewM(80,2),80)
  45.  
  46. intuitionbase:=OpenLibrary('intuition.library',37)
  47.  
  48. IF (intuitionbase <> NIL)
  49.    IF (NIL <> (win:=OpenW(20,11,400,100,IFLAGS,$f,'SimpleImage',NIL,1,buf)))
  50.  
  51.  
  52. myimage := [ MYIMAGE_LEFT,   /* offset coté gauche */
  53.              MYIMAGE_TOP,    /* offset haut */
  54.              MYIMAGE_WIDTH,  /* largeur de l'image  */
  55.              MYIMAGE_HEIGHT, /* hauteur de l'image */
  56.              MYIMAGE_DEPTH,  /* nombre de plan de bits */
  57.              myimagedata,    /* Données image */
  58.              $3,             /* plan sur lequel les données doivent être mises */
  59.              $0,             /* Met où efface les plans de bit */
  60.              NIL ]:image
  61.  
  62.        /* Trace l'image sur le 1er plan */
  63.        DrawImage(win.rport, myimage,20,50)
  64.        TextF(10,75,'Premier et second plan')
  65.  
  66. myimage := [ MYIMAGE_LEFT,   /* offset coté gauche */
  67.              MYIMAGE_TOP,    /* offset haut */
  68.              MYIMAGE_WIDTH,  /* largeur de l'image */
  69.              MYIMAGE_HEIGHT, /* hauteur de l'image */
  70.              MYIMAGE_DEPTH,  /* nombre de plan */
  71.              myimagedata,    /* Donnée image */
  72.              %1010,
  73.              $0,
  74.              NIL ]:image
  75.        /* Trace l'image sur le second plan */
  76.        DrawImage(win.rport, myimage,80,50)
  77.  
  78.        Delay (200)
  79.  
  80.        CloseW(win)
  81.     ENDIF
  82. CloseLibrary(intuitionbase)
  83. ENDIF
  84. ENDPROC
  85.